home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / System7 tools / S / System 7 corner / MPW System7 Folder / SafeDelete < prev   
Encoding:
Text File  |  1991-03-07  |  486 b   |  30 lines  |  [TEXT/MPS ]
  1. ##    SafeDelete by Larry Rosenstein
  2. ##    Copyright © 1991 Apple Computer, Inc.  All Rights Reserved
  3.  
  4. Set p "`quote {"parameters"}`"
  5. Set p " {p} "
  6.  
  7. Set opt ''
  8.  
  9. LOOP
  10.     IF "{p}" =~ /(≈)®1[ ∂t]+(-[yncp])®0[ ∂t]+(≈)®2/
  11.         set opt "{opt} {®0}"
  12.         set p "{®1} {®2}"
  13.     ELSE
  14.         Break
  15.     END
  16. END
  17.  
  18. IF "{p}" =~ / +(≈)®0 +/
  19.     Set p "{®0}"
  20. END
  21.  
  22. FOR file in `quote {p}`
  23.     IF "{file}" !~ /≈:≈/
  24.         set file ":{file}"
  25.     END
  26.     
  27.     RememberHome `quote "{file}"`
  28.     move {opt} `quote "{file}"` `findfolder -trash "{file}"`
  29. END
  30.